Primera presentacion

Yo

Cargar los datos

load(file = "C:/Users/jazmi/OneDrive/Escritorio/SOFTWARE_2/datos/accidentes2020_data.rda")

library(tidyverse)
accidentes_tb <- as_tibble(accidentes2020_data)

Nº de accidentes por sexo

resumen <- accidentes_tb |> 
  count(sexo)

resumen
# A tibble: 3 × 2
  sexo            n
  <chr>       <int>
1 Desconocido  3806
2 Hombre      19627
3 Mujer        8994

Visualizacion de datos

Code
ggplot(resumen) +
  geom_col(aes(x = sexo, y = n, fill = sexo), alpha = 0.4) +
  ggthemes::scale_fill_colorblind()